home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00280_Script_bar hourspop < prev    next >
Text File  |  1999-03-07  |  2KB  |  60 lines
  1. property thePopLocv, popSpritev, popNamev, mySpritev, fieldObjv
  2. global currentChartName, popbgSpritev
  3.  
  4. on new me
  5.   set mySpritev = the spriteNum of me
  6.   set popSpritev = mySpritev + 1
  7.   set popbgSpritev = mySpritev - 3
  8.   set right = the right of sprite (mySpritev - 2)
  9.   set top = the top of sprite (mySpritev -2)
  10.   set thePopLocv = point(right, top)
  11.   set popNamev = "hours_field"
  12.   
  13.   puppetSprite popSpritev, true  
  14.   --  set faraway = point(-1000, -1000)
  15.   set the loc of sprite popSpritev = point(-1000, -1000)
  16.   return me
  17. end
  18.  
  19. on register me, theObj
  20.   set fieldObjv = theObj
  21. end 
  22.  
  23.  
  24. on mouseDown me
  25.   set the member of sprite popSpritev = member popNamev
  26.   set the loc of sprite popSpritev = thePopLocv
  27.   set the member of sprite popbgSpritev = member popNamev
  28.   set the loc of sprite popbgSpritev = thePopLocv
  29.   -- put "popped - " & thepoploc
  30.   updateStage
  31.   repeat while the stillDown
  32.     checkIfInsidev fieldObjv
  33.   end repeat
  34.   
  35.   set the loc of sprite popSpritev = point(-1000, -1000)
  36.   set the loc of sprite popbgSpritev = point(-1000, -1000)
  37.   
  38.   
  39.   set name = getPlaneNamev(fieldObjv)
  40.   if name = "" then 
  41.     nothing
  42.   else
  43.     set the text of field "bar_hours" = name
  44.     mainbars
  45.     set xname = the text of field "displane"
  46.     if length(xname) > 3 then compbars xname
  47.   end if
  48.   
  49.   
  50.   set the loc of sprite popSpritev = point(-1000, -1000)
  51.   set the loc of sprite popbgSpritev = point(-1000, -1000)
  52.   
  53.   updateStage
  54. end
  55.  
  56. on mouseUp me
  57.   
  58.   nothing
  59. end 
  60.